home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Siegfried Copy.adf
/
SFC_Install_2.x
< prev
next >
Wrap
Text File
|
1989-05-19
|
4KB
|
179 lines
;------------------------------------------
; Installer Script für Siegfried Copy 1.3 -
;------------------------------------------
(set #Begruessung
(cat "\nMit diesem Installationsprogramm können Sie\n\n\nSiegfried Copy\n\n\n auf Ihre "
"Festplatte installieren. Die komplette Installation läuft vollständig "
"automatisch ab.\n"
"Auf Ihrer Festplatte müssen 1,0 MB Platz frei sein!\n\n\n"
"Drücken Sie \"Proceed\", um fortzufahren.\n"
"Drücken Sie \"Abbruch\", um abzubrechen. "))
(set #Platten-Hilfe
(cat "\nWählen Sie die Partition Ihrer Festplatte aus, auf der "
"Sie gerne Siegfried Copy installieren möchten. Danach klicken Sie "
"auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
"Namen des Verzeichnisses an (z.B. WORK:SF_Tools). Dann drücken Sie "
"auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
"\"Help...\" zeigt diesen Text."))
(set #Sounds
(cat "\n\n Hier können Sie entscheiden ob die Sound-Modules\n"
" auf die Festplatte installiert werden sollen."))
(set #Soundname
(cat "\n\n Hier können Sie entscheiden welcher mod.Sound\n"
" auf die Festplatte installiert werden soll."))
(set #Samples
(cat "\n\n Hier können Sie entscheiden ob die Samples\n"
" auf die Festplatte installiert werden sollen."))
(set #Samplesname
(cat "\n\n Hier können Sie entscheiden welches Sample\n"
" auf die Festplatte installiert werden soll."))
(set #Plattenverz (cat "In welches Verzeichnis soll Siegfried Copy\nkopiert werden?"))
(message #Begruessung)
(welcome)
(
(set @default-dest
(askdir
(prompt #Plattenverz)
(help #Platten-Hilfe)
(default "WORK:SF_Tools")
)
)
(if ; Verzeichnis erzeugen
(= (exists @default-dest) 0)
(makedir @default-dest)
)
(makeassign "SF_Tools" @default-dest)
(onerror
(cleanUp)
)
(makedir "SF_Tools:Modules"
(prompt "\n\n\nSchublade Modules wird eingerichtet")
(help "In Modules werden mod.Sounds abgelegt")
(infos)
(confirm)
)
(makedir "SF_Tools:Samples"
(prompt "\n\n\nSchublade Samples wird eingerichtet")
(help "In Samples werden Soundeffekte abgelegt")
(infos)
(confirm)
)
(askdisk
(prompt "\n\n\nBitte legen Sie die Diskette \"Siegfried Copy\" ein!")
(help #Plattenverz)
(dest "SiegfriedCopy")
)
)
(complete 5)
(copyfiles
(prompt "Kopiere das Hauptprogramm SFC")
(help "Jetzt wird das Hauptprogramm kopiert")
(source "SiegfriedCopy:SFC")
(dest "SF_Tools:")
)
(complete 10)
(copyfiles
(prompt "Kopiere SFC.Info")
(help "Jetzt wird das Info zum Hauptprogramm kopiert")
(source "SiegfriedCopy:SFC.Info")
(dest "SF_Tools:")
)
(complete 30)
(user 2)
(set hardware (askchoice (prompt "Bitte auswählen")
(help #Sounds)
(choices "Keine mod.Sounds kopieren"
"Alle mod.Sounds kopieren"
)
(default 1)
)
)
(if (= 1 hardware)
(
(user 2)
(copyfiles
(prompt "Bitte Module auswählen")
(help #Soundname)
(source "SiegfriedCopy:modules")
(dest "SF_Tools:Modules")
(pattern "mod.#?")
(files)
(confirm)
)
)
)
(complete 50)
(user 2)
(set hardware (askchoice (prompt "Bitte auswählen")
(help #Samples)
(choices "Keine Samples kopieren"
"Alle Samples kopieren"
)
(default 1)
)
)
(if (= 1 hardware)
(
(user 2)
(copyfiles
(prompt "Bitte Samples auswählen")
(help #Samplesname)
(source "SiegfriedCopy:Samples/")
(dest "SF_Tools:Samples")
(pattern "#?.raw")
(files)
(confirm)
)
)
)
(complete 80)
(copyfiles
(prompt "Kopiere die Siegfried.Library")
(help " ")
(source "SiegfriedCopy:Libs/Siegfried.Library")
(dest "Libs:")
)
(complete 95)
(copyfiles
(prompt "Kopiere das Siegfried.Brainfile")
(help " ")
(source "SiegfriedCopy:S/Siegfried.Brainfile")
(dest "S:")
)
(complete 100)
(message (cat
"Installation von Siegfried Copy beendet.\n\n"
"Entfernen Sie nun die Diskette aus Ihrem Laufwerk\n "
"und starten Sie Siegfried Copy.\n\nViel Spass beim kopieren!")
)
(exit)